Apple Reference & Presen…rary 5 (Internal Edition)/Apple R&P Lib Internal v5.0.iso/6-Developer Demos/Developer Demos-Ed./Macintosh School® CD-ROM Demo/Macintosh SchoolÆ CD-ROM Demo/card_23659.txt

Text File | 1990-08-14 | 9.7 KB | 417 lines

-- card: 23659 from stack: in
-- bmap block id: 23808
-- flags: 4000
-- background id: 20347
-- name: SD Disc


-- part 1 (field)
-- low flags: 00
-- high flags: 0001
-- rect: left=12 top=107 right=138 bottom=139
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 13
-- part name: Infraction


-- part 2 (field)
-- low flags: 00
-- high flags: 0001
-- rect: left=140 top=113 right=131 bottom=222
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Date


-- part 3 (field)
-- low flags: 00
-- high flags: 0001
-- rect: left=236 top=107 right=138 bottom=343
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 13
-- part name: Teacher


-- part 4 (field)
-- low flags: 00
-- high flags: 0001
-- rect: left=344 top=107 right=138 bottom=482
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 13
-- part name: Administrator


-- part 5 (field)
-- low flags: 00
-- high flags: 0001
-- rect: left=12 top=159 right=199 bottom=139
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 13
-- part name: Location


-- part 6 (field)
-- low flags: 00
-- high flags: 0001
-- rect: left=140 top=159 right=199 bottom=235
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 13
-- part name: Action


-- part 7 (field)
-- low flags: 00
-- high flags: 0001
-- rect: left=236 top=159 right=199 bottom=482
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 13
-- part name: Comment


-- part 8 (field)
-- low flags: 01
-- high flags: 0007
-- rect: left=17 top=264 right=330 bottom=214
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 16
-- part name: Select Infraction


-- part 9 (field)
-- low flags: 01
-- high flags: 0007
-- rect: left=223 top=264 right=330 bottom=420
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 16
-- part name: Select Teacher


-- part 10 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=19 top=216 right=232 bottom=127
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Infraction
----- HyperTalk script -----
on mouseUp
  lock screen
  put "1(1)" into card field "Number"
  put the scroll of card field "Select Infraction" into infScroll
  put ((infScroll / 16) + 1) into infLine
  if hilite of button "Infraction2" then add 1 to infLine
  if hilite of button "Infraction3" then add 2 to infLine
  if hilite of button "Infraction4" then add 3 to infLine
  put line infLine of card field "Select Infraction" into card field "Infraction"
  put item 2 to 3 of the abbrev date into card field "Date"
  put empty into char 2 to 3 of item 2 of card field "Date"
  put the scroll of card field "Select Teacher" into teaScroll
  put ((teaScroll / 16) + 1) into teaLine
  if hilite of button "Teacher2" then add 1 to teaLine
  if hilite of button "Teacher3" then add 2 to teaLine
  if hilite of button "Teacher4" then add 3 to teaLine
  put line teaLine of card field "Select Teacher" into card field "Teacher"
  unlock screen
end mouseUp



-- part 11 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=168 top=216 right=232 bottom=276
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Suspended
----- HyperTalk script -----
on mouseUp
  lock screen
  go to next card
  put background field "Name" of first card of this background into background field "Name"
  put background field "Grade" of first card of this background into background field "Grade"
  put background field "Homeroom" of first card of this background into background field "Homeroom"
  put item 2 to 3 of the abbrev date into card field "Suspended From"
  put empty into char 2 to 3 of item 2 of card field "Suspended From"
  put item 2 to 3 of the abbrev date into card field "Suspended To"
  put empty into char 2 to 3 of item 2 of card field "Suspended To"
  unlock screen
end mouseUp



-- part 12 (field)
-- low flags: 01
-- high flags: 0001
-- rect: left=81 top=87 right=104 bottom=132
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Number


-- part 13 (button)
-- low flags: 00
-- high flags: 4000
-- rect: left=18 top=265 right=281 bottom=197
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Infraction1
----- HyperTalk script -----
on mouseUp
  set hilite of button "Infraction2" to false
  set hilite of button "Infraction3" to false
  set hilite of button "Infraction4" to false
  set hilite of button "Infraction1" to true
end mouseUp



-- part 14 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=18 top=281 right=297 bottom=197
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Infraction2
----- HyperTalk script -----
on mouseUp
  set hilite of button "Infraction1" to false
  set hilite of button "Infraction3" to false
  set hilite of button "Infraction4" to false
  set hilite of button "Infraction2" to true
end mouseUp



-- part 15 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=18 top=297 right=313 bottom=197
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Infraction3
----- HyperTalk script -----
on mouseUp
  set hilite of button "Infraction1" to false
  set hilite of button "Infraction2" to false
  set hilite of button "Infraction4" to false
  set hilite of button "Infraction3" to true
end mouseUp



-- part 16 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=18 top=313 right=329 bottom=197
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Infraction4
----- HyperTalk script -----
on mouseUp
  set hilite of button "Infraction1" to false
  set hilite of button "Infraction2" to false
  set hilite of button "Infraction3" to false
  set hilite of button "Infraction4" to true
end mouseUp



-- part 17 (button)
-- low flags: 00
-- high flags: 4000
-- rect: left=224 top=265 right=281 bottom=403
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Teacher1
----- HyperTalk script -----
on mouseUp
  set hilite of button "Teacher2" to false
  set hilite of button "Teacher3" to false
  set hilite of button "Teacher4" to false
  set hilite of button "Teacher1" to true
end mouseUp



-- part 18 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=224 top=281 right=297 bottom=403
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Teacher2
----- HyperTalk script -----
on mouseUp
  set hilite of button "Teacher1" to false
  set hilite of button "Teacher3" to false
  set hilite of button "Teacher4" to false
  set hilite of button "Teacher2" to true
end mouseUp



-- part 19 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=224 top=297 right=313 bottom=403
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Teacher3
----- HyperTalk script -----
on mouseUp
  set hilite of button "Teacher1" to false
  set hilite of button "Teacher2" to false
  set hilite of button "Teacher4" to false
  set hilite of button "Teacher3" to true
end mouseUp



-- part 20 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=224 top=313 right=329 bottom=403
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Teacher4
----- HyperTalk script -----
on mouseUp
  set hilite of button "Teacher1" to false
  set hilite of button "Teacher2" to false
  set hilite of button "Teacher3" to false
  set hilite of button "Teacher4" to true
end mouseUp



-- part contents for card part 8
----- text -----
Fighting
Insolence
Poss. of illegal subs.
Smoking on school property


-- part contents for card part 9
----- text -----
N/A
Arness, James
Cavein, Tich
Dean, Bob


-- part contents for card part 12
----- text -----
None

-- part contents for background part 13
----- text -----
Richter, Robert Charlie

-- part contents for background part 14
----- text -----
12

-- part contents for background part 15
----- text -----
102